perm filename TYPER.FAI[PUR,LCS] blob
sn#331846 filedate 1979-07-23 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 TITLE TYPER
C00004 ENDMK
C⊗;
TITLE TYPER
A←1 ↔B←2↔C←3 ↔D←4 ↔E←5↔X←6↔Y←7
P←17 ↔ NBUFS←4
PDL: BLOCK 22
IBUF: BLOCK 4
OBUF: BLOCK 4
FILNAM: 'HHT '
'DMP '
0
0
FIL2: 'HHTDMP'
'OCT '
0
0
STAR: MOVE P,[PDPO: IOWD 22,PDL]
OPEN 11,[14↔'DSK '↔IBUF]
JRST 4,.
INBUF 11,NBUFS
LOOKUP 11,FILNAM
JRST 4,.
OPEN [14↔'DSK '↔OBUF,,]
JRST 4,.
OUTBUF NBUFS
ENTER FIL2
JRST 4,.
HRROI Y,-761 ;-777 FOR LAST PROM (256 BYTES)
;-7 FOR 1400 ?
LOADER: PUSHJ P,INP+1
HRRZI X,200
ADD X,IBUF+2
AOJL Y,LOADER
HRLZI Y,-4000 ;-400 FOR 256 PROM
LOAD: PUSHJ P,INP
PUSHJ P,OUTP
HRRZ A,1(X)
HRRZM A,1(Y)
AOBJP Y,DONE
AOBJN X,LOAD+2
JRST LOAD
DONE: PUSHJ P,OUTP
RELEAS
EXIT
INP: HRRM X,IBUF+1
IN 11,
JRST SETX
STATO 11,20000
JRST 4,.
OUTSTR ["????"]
EXIT
OUTP: HRRM Y,OBUF+1
OUT
CAIA
JRST 4,.
HRR Y,OBUF+1
POPJ P,
SETX: HRRZ X,IBUF+2
MOVNI X,(X)
HRLZI X,(X)
HRR X,IBUF+1
POPJ P,
END STAR